fda fda.usc VGAM ggplot2 plotly
TRUE TRUE TRUE TRUE TRUE
Información del conjunto de datos: azúcar se ha disuelto en agua sin amortiguar y la solución se midió espectrofluorométricamente en una cubeta de 10 \(\times\) 10 \(mm^2\). Los datos en bruto se midieron con un fluorómetro. Para cada muestra, los espectros de emisión se midieron en intervalos de \(0.5\) nm en siete ondas de excitación.
Es decir, tenemos una muestra de tamaño 265, en 571 puntos para cada una de las 7 ondas de longitudes de excitación.
En nuestro caso, decidimos tomar el nivel de excitación correspondiente al nivel de onda 340. Para entender un poco mejor los datos, visualicemos la información sin haberla tratado (i.e. en bruto).
Después de visualizar las funciones (sin suavizar) consideramos como más acertado usar una base de funciones B-Spline para llevar a cabo el suavizado, pues en los datos no se perciben comportamientos cíclicos (o sinusoidales). Como apunte adicional, mencionamos que para llevar a cabo el ajuste nos bastó con usar polinomios de grado 3 (orden 4) y para la parte que presentaba un apuntamiento muy alto usamos más breakpoints.
A continuación podemos ver las versiones suavizadas de la muestra en cuestión.
[1] "done"
done
Para contrastar las estimaciones, vamos a superponer los datos sin tratar, junto con las respectivas curvas suavizadas.
La función de media \(\overline{x(t)}\) se presenta a continuación
Veremos la media recortada, que corresponde al cálculo de la media despúes de haber omitida una cantidad de observaciones (en este, el 10% de las observaciones menos centrales). Vemos que las funciones menos centrales, parecen mostrar un comportamiento, más apuntados en alguna parte o la parte central en lugar de ser decreciente crece.
Se calculó usando todos los datos.
Podemos ver igualmente, una gráfica de una “banda de confianza” (abusamos de términología para orientar la construcción del gráfico, pero no es tal).
Mostramos la superficie obtenida. Con la función persp obtenemos una figura no muy agradable. Sin embargo, usaremos la función plot_ly que graficará la superficie en una página web y tomamos capturas de pantalla.
Corresponde a la estimación con la mayor densidad de todas las estimaciones.
En el mismo gráfico presentamos las funciones de los cuantiles solicitados.
Los números que aparecen en la leyenda son los identificadores de las funciones \(\widehat{x}\) consideradas como atípicas. En este caso, podemos considerar que se tratan de outliers parciales. Esto lo podemos ver con las observaciones 131, 71 y 10, pues hay una región (intervalo 350-450 aproximadamente) en la que las curvas o bien decrecen de forma muy suave o bien se comportan de forma creciente. En cambio, el comportamiento de los individios 14 y 16 es más complejo de entender porqué son outliers.
Podemos resaltar que los individuos 14 y 16 están entre los 3 elementos con menor profundidad (aproximadamente un 1.2%).
No logramos hacer el cálculo de la matriz de covarianzas robusta y por ende no pudimos presentar la metodología propuesta en las diapositivas.
Como alternativa, proponemos basarnos en técnicas de remuestreo para estimar el boxplot sin usar los que parecen ser datos atípicos y definir el valor del hiperparámetro F.
Los gráficos nos ayudan a ver el efecto de haber cambiado el factor \(F\) de 1.5 a 1.83 y vemos que la proporción de datos catalogados como atípicos cuando no lo son pasa de un 5% a un 2%.
[1] 17 40 55 69 85
[1] 55 69
Mostramos a continuación el boxplot resultante al modificar el factor F.
2. Leer, comprender y replicar el siguiente artículo: Aguilera, A. M., & Aguilera-Morillo, M. C. (2013). Comparative study of different B-spline approaches for functional data. Mathematical and Computer Modelling, 58(7-8), 1568-1579.
Primero la simulación
se generarn R y theta
ahora la funcion
la simulada
Se genera la funcion simulada
se crea la base
Regression Splines
funcion
se grafica la primera
Generar 100 muestras
Se genera la función
ahora sí las muestras
Smoothing Splines
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
graficar
Se generan 100 muestras
ahora sí las muestras
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
Warning in data.frame(x = seq(0, 1, len = 51), y = predict(ajuste, newdata =
seq(0, : row names were found from a short variable and have been discarded
generar gcv’s
Generar matriz para cada base
obtener funcion media
Graficar boxplot
graficar con 5 bases
graficar con 15 bases
Graficar con 25 bases
se prueba con las 5, 15 y 25 bases de splines
54
[1] "done"
done